r programming math Function